home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
B Soft 2
/
B-Soft_2_19xx_Maik__Mike_de_Side_A.d64
/
joint'n fun
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
2KB
|
60 lines
0 poke808,254:poke53280,0:poke53281,0
1 printchr$(8),chr$(142)"[147]we have joint we have fun!"
2 print"ein kurz-adventure von maik holstein"
3 print"written 1990"
4 print""
5 print"viel spass, junky![145]"
6 geta$:ifa$=""then6
7 print"[147]fuer die ganz dummen:"
8 print"pass auf, das ist ganz easy."
9 print"in diesem game stelle ich dir immer fra-"
10 print"[145]gen, und du musst sie mit den buch-"
11 print"staben 'j' (ja) oder 'n' (nein) beant-"
12 print"worten und dann 'return' druecken."
13 input"[145]klaro";mh$
14 ifmh$="j"then19
15 ifmh$="n"then500
16 goto13
19 print"[147]"
20 print"der dealer ist da!"
30 input"[145]willste 'nen joint";e$
40 ife$="j"then60
50 ife$="n"thenprint:print"schade...":print"(taste)":goto200
55 goto30
60 print""
65 input"[145]haste kohle";g$
80 ifg$="n"thenprint"du gehst erst kohle holen.":goto90
81 ifg$="j"then90
82 goto65
90 print:print"du walkst ueber die strasse."
100 print:print"du kaufst 'nen joint."
110 x=x+1
120 print""
125 input"[145]willste noch einen";n$
130 ifn$="j"then150
140 ifn$="n"then170
145 goto125
150 print:print"du kaufst joint nummer";x+1;"[157]."
160 goto110
170 print:print"du musst kotzen.":print
180 ifx=1thenprint"ein joint bekommt dir nicht!":print"(taste)":goto200
190 print"[157]";x;"joints bekommen dir nicht!":print"(taste)"
200 geta$:ifa$=""then200
201 print"[147]hm, nun, tja, das war's eigentlich..."
202 print"und die moral von der geschicht?"
203 print"einen joint raucht man nicht!"
204 print"(taste)"
205 geta$:ifa$=""then205
206 goto600
500 print"mensch, stell' dich nicht bloeder an,"
501 print"als du schon bist! es geht los."
502 print"(taste)"
503 geta$:ifa$=""then503
504 goto19
600 print"[152][213][195][179] [213][201] [178] [176][201] [213][195][179]"
601 print"[194] [194][202][201] [194] [194][202][201][194] "
602 print"[171][195][179] [194] [202][201][194] [194][215][194][171][195][179]"
603 print"[194] [194] [202][179] [194][213][203][194]"
604 print"[202][195][179] [177] [177] [173][203] [202][195][179]":sys64738
1000 rem written by maik holstein 1990